home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
BIRD.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
336b
|
20 lines
#
# BIRD Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("bird.sou")
for (i=1; i<=2; ++i) {
sinwave(3500, 450); quiet(50);
sinwave(3000, 450); quiet(50);
sinwave(4000, 450) quiet(50);
}
sclose(0);
sndvoc("bird.sou", "bird.voc");
}